#0Y |CHARSET|::|UTF-8|
(|COMMON-LISP|::|LET*| ((#1=#:|G2907| |CLOS|::|<STANDARD-CLASS>|))
 (|COMMON-LISP|::|APPLY| #'|CLOS|::|ENSURE-CLASS|
  '|COMMON-LISP-USER|::|PATTERN| :|DIRECT-SUPERCLASSES| (|COMMON-LISP|::|LIST|)
  :|DIRECT-SLOTS| (|COMMON-LISP|::|LIST|) :|METACLASS| #1#
  (|COMMON-LISP|::|APPEND| '(:|FIXED-SLOT-LOCATIONS| |COMMON-LISP|::|NIL|)
   (|COMMON-LISP|::|LIST| :|DIRECT-DEFAULT-INITARGS| |COMMON-LISP|::|NIL|
    :|DOCUMENTATION| |COMMON-LISP|::|NIL| :|GENERIC-ACCESSORS|
    '|COMMON-LISP|::|T|))))
(|COMMON-LISP|::|LET*| ((#1=#:|G2910| |CLOS|::|<STANDARD-CLASS>|))
 (|COMMON-LISP|::|APPLY| #'|CLOS|::|ENSURE-CLASS|
  '|COMMON-LISP-USER|::|VISUAL-PATTERN| :|DIRECT-SUPERCLASSES|
  (|COMMON-LISP|::|LIST| '|COMMON-LISP-USER|::|PATTERN|) :|DIRECT-SLOTS|
  (|COMMON-LISP|::|LIST|) :|METACLASS| #1#
  (|COMMON-LISP|::|APPEND| '(:|FIXED-SLOT-LOCATIONS| |COMMON-LISP|::|NIL|)
   (|COMMON-LISP|::|LIST| :|DIRECT-DEFAULT-INITARGS| |COMMON-LISP|::|NIL|
    :|DOCUMENTATION| |COMMON-LISP|::|NIL| :|GENERIC-ACCESSORS|
    '|COMMON-LISP|::|T|))))
(|COMMON-LISP|::|LET*| ((#1=#:|G2913| |CLOS|::|<STANDARD-CLASS>|))
 (|COMMON-LISP|::|APPLY| #'|CLOS|::|ENSURE-CLASS|
  '|COMMON-LISP-USER|::|VERBAL-PATTERN| :|DIRECT-SUPERCLASSES|
  (|COMMON-LISP|::|LIST| '|COMMON-LISP-USER|::|PATTERN|) :|DIRECT-SLOTS|
  (|COMMON-LISP|::|LIST|) :|METACLASS| #1#
  (|COMMON-LISP|::|APPEND| '(:|FIXED-SLOT-LOCATIONS| |COMMON-LISP|::|NIL|)
   (|COMMON-LISP|::|LIST| :|DIRECT-DEFAULT-INITARGS| |COMMON-LISP|::|NIL|
    :|DOCUMENTATION| |COMMON-LISP|::|NIL| :|GENERIC-ACCESSORS|
    '|COMMON-LISP|::|T|))))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|VISUAL-PATTERN-P|
 #(1. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
   |COMMON-LISP|::|NIL|)
 |COMMON-LISP|::|NIL| '|CLOS|::|DEFMETHOD|)
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|VISUAL-PATTERN-P|
 #(1. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
   |COMMON-LISP|::|NIL|)
 |COMMON-LISP|::|NIL| '|CLOS|::|DEFMETHOD|)
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|MAKE-PATTERN-FOR|
 '#(1. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
    |COMMON-LISP|::|NIL|)
 |COMMON-LISP|::|NIL| '|CLOS|::|DEFGENERIC|)
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|EMPTY-PATTERN-P|
 '#(1. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
    |COMMON-LISP|::|NIL|)
 |COMMON-LISP|::|NIL| '|CLOS|::|DEFGENERIC|)
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|EQUAL-PATTERNS-P|
 '#(2. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
    |COMMON-LISP|::|NIL|)
 |COMMON-LISP|::|NIL| '|CLOS|::|DEFGENERIC|)
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|MATCHING-PATTERNS-P|
 '#(2. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
    |COMMON-LISP|::|NIL|)
 |COMMON-LISP|::|NIL| '|CLOS|::|DEFGENERIC|)
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|GET-NEXT-ITEM|
 '#(2. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
    |COMMON-LISP|::|NIL|)
 |COMMON-LISP|::|NIL| '|CLOS|::|DEFGENERIC|)
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|COMBINE-PATTERNS|
 '#(2. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
    |COMMON-LISP|::|NIL|)
 |COMMON-LISP|::|NIL| '|CLOS|::|DEFGENERIC|)
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|EQUAL-PATTERNS-P|
 #(2. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
   |COMMON-LISP|::|NIL|)
 |COMMON-LISP|::|NIL| '|CLOS|::|DEFMETHOD|)
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|MATCHING-PATTERNS-P|
 #(2. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
   |COMMON-LISP|::|NIL|)
 |COMMON-LISP|::|NIL| '|CLOS|::|DEFMETHOD|)
(|COMMON-LISP|::|LET*| ((#1=#:|G3148| |CLOS|::|<STANDARD-CLASS>|))
 (|COMMON-LISP|::|APPLY| #'|CLOS|::|ENSURE-CLASS|
  '|COMMON-LISP-USER|::|ROOT-PATTERN| :|DIRECT-SUPERCLASSES|
  (|COMMON-LISP|::|LIST| '|COMMON-LISP-USER|::|VISUAL-PATTERN|) :|DIRECT-SLOTS|
  (|COMMON-LISP|::|LIST|) :|METACLASS| #1#
  (|COMMON-LISP|::|APPEND| '(:|FIXED-SLOT-LOCATIONS| |COMMON-LISP|::|NIL|)
   (|COMMON-LISP|::|LIST| :|DIRECT-DEFAULT-INITARGS| |COMMON-LISP|::|NIL|
    :|DOCUMENTATION| |COMMON-LISP|::|NIL| :|GENERIC-ACCESSORS|
    '|COMMON-LISP|::|T|))))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|MAKE-PATTERN-FOR|
 #(1. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
   |COMMON-LISP|::|NIL|)
 |COMMON-LISP|::|NIL| '|CLOS|::|DEFMETHOD|)
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|EQUAL-PATTERNS-P|
 #(2. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
   |COMMON-LISP|::|NIL|)
 |COMMON-LISP|::|NIL| '|CLOS|::|DEFMETHOD|)
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|MATCHING-PATTERNS-P|
 #(2. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
   |COMMON-LISP|::|NIL|)
 |COMMON-LISP|::|NIL| '|CLOS|::|DEFMETHOD|)
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|GET-NEXT-ITEM|
 #(2. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
   |COMMON-LISP|::|NIL|)
 |COMMON-LISP|::|NIL| '|CLOS|::|DEFMETHOD|)
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|COMBINE-PATTERNS|
 #(2. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
   |COMMON-LISP|::|NIL|)
 |COMMON-LISP|::|NIL| '|CLOS|::|DEFMETHOD|)
(|COMMON-LISP|::|LET*| ((#1=#:|G3279| |CLOS|::|<STANDARD-CLASS>|))
 (|COMMON-LISP|::|APPLY| #'|CLOS|::|ENSURE-CLASS|
  '|COMMON-LISP-USER|::|VL-PATTERN| :|DIRECT-SUPERCLASSES|
  (|COMMON-LISP|::|LIST| '|COMMON-LISP-USER|::|VISUAL-PATTERN|) :|DIRECT-SLOTS|
  (|COMMON-LISP|::|LIST|
   (|COMMON-LISP|::|LIST| :|NAME| '|COMMON-LISP-USER|::|DATA| :|READERS|
    '(|COMMON-LISP-USER|::|GET-DATA|) :|WRITERS|
    '((|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|GET-DATA|)) :|INITARGS|
    '(:|DATA|) :|INITFORM| '|COMMON-LISP|::|NIL| :|INITFUNCTION|
    (|SYSTEM|::|MAKE-CONSTANT-INITFUNCTION| |COMMON-LISP|::|NIL|)))
  :|METACLASS| #1#
  (|COMMON-LISP|::|APPEND| '(:|FIXED-SLOT-LOCATIONS| |COMMON-LISP|::|NIL|)
   (|COMMON-LISP|::|LIST| :|DIRECT-DEFAULT-INITARGS| |COMMON-LISP|::|NIL|
    :|DOCUMENTATION| |COMMON-LISP|::|NIL| :|GENERIC-ACCESSORS|
    '|COMMON-LISP|::|T|))))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|GET-DATA|
 #(1. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
   |COMMON-LISP|::|NIL|)
 |COMMON-LISP|::|NIL| '|CLOS|::|DEFMETHOD|)
(|SYSTEM|::|C-DEFUN| '(|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|GET-DATA|)
 #(2. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
   |COMMON-LISP|::|NIL|)
 |COMMON-LISP|::|NIL| '|CLOS|::|DEFMETHOD|)
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|MAKE-PATTERN-FOR|
 #(1. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
   |COMMON-LISP|::|NIL|)
 |COMMON-LISP|::|NIL| '|CLOS|::|DEFMETHOD|)
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|EMPTY-PATTERN-P|
 #(1. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
   |COMMON-LISP|::|NIL|)
 |COMMON-LISP|::|NIL| '|CLOS|::|DEFMETHOD|)
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|EQUAL-PATTERNS-P|
 #(2. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
   |COMMON-LISP|::|NIL|)
 |COMMON-LISP|::|NIL| '|CLOS|::|DEFMETHOD|)
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|MATCHING-PATTERNS-P|
 #(2. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
   |COMMON-LISP|::|NIL|)
 |COMMON-LISP|::|NIL| '|CLOS|::|DEFMETHOD|)
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|GET-NEXT-ITEM|
 #(2. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
   |COMMON-LISP|::|NIL|)
 |COMMON-LISP|::|NIL| '|CLOS|::|DEFMETHOD|)
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|COMBINE-PATTERNS|
 #(2. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
   |COMMON-LISP|::|NIL|)
 |COMMON-LISP|::|NIL| '|CLOS|::|DEFMETHOD|)
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|PRESEQUENCE-P|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '(|COMMON-LISP-USER|::|LIST-1| |COMMON-LISP-USER|::|LIST-2|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|REMOVE-MATCHING-PRESEQUENCE|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '(|COMMON-LISP-USER|::|LIST-1| |COMMON-LISP-USER|::|LIST-2|)))
(|COMMON-LISP|::|LET| |COMMON-LISP|::|NIL|
 (|COMMON-LISP|::|LET|
  ((#1=#:|G3504|
    (|COMMON-LISP|::|CONS| '|COMMON-LISP-USER|::|NODE|
     (|CLOS|::|CLASS-NAMES|
      (|COMMON-LISP|::|GET| '|COMMON-LISP|::|STRUCTURE-OBJECT|
       '|CLOS|::|CLOSCLASS|)))))
  (|SYSTEM|::|STRUCTURE-UNDEFINE-ACCESSORIES| '|COMMON-LISP-USER|::|NODE|)
  (|COMMON-LISP|::|REMPROP| '|COMMON-LISP-USER|::|NODE|
   '|SYSTEM|::|DEFSTRUCT-DESCRIPTION|)
  (|CLOS|::|DEFINE-STRUCTURE-CLASS| '|COMMON-LISP-USER|::|NODE| #1#
   '|COMMON-LISP-USER|::|MAKE-NODE| '|COMMON-LISP|::|NIL|
   '|COMMON-LISP-USER|::|COPY-NODE| '|COMMON-LISP-USER|::|NODE-P|
   (|COMMON-LISP|::|LIST|
    (|CLOS|::|MAKE-INSTANCE-<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>|
     |CLOS|::|<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>| :|NAME|
     '|COMMON-LISP-USER|::|CONTENTS| :|INITARGS| '#2=(:|CONTENTS|) :|TYPE|
     '|COMMON-LISP|::|T| :|ALLOCATION| ':|INSTANCE|
     #3='|CLOS|::|INHERITABLE-INITER|
     (|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| '|COMMON-LISP|::|NIL|
      #4=(|SYSTEM|::|MAKE-CONSTANT-INITFUNCTION| |COMMON-LISP|::|NIL|))
     #5='|CLOS|::|INHERITABLE-DOC| '(|COMMON-LISP|::|NIL|)
     #6='|CLOS|::|LOCATION| '1. #7='|CLOS|::|READONLY| '|COMMON-LISP|::|NIL|)
    (|CLOS|::|MAKE-INSTANCE-<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>|
     |CLOS|::|<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>| :|NAME|
     '|COMMON-LISP-USER|::|IMAGE| :|INITARGS| '#8=(:|IMAGE|) :|TYPE|
     '|COMMON-LISP|::|T| :|ALLOCATION| ':|INSTANCE| #3#
     (|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| '|COMMON-LISP|::|NIL|
      #9=(|SYSTEM|::|MAKE-CONSTANT-INITFUNCTION| |COMMON-LISP|::|NIL|))
     #5# '(|COMMON-LISP|::|NIL|) #6# '2. #7# '|COMMON-LISP|::|NIL|)
    (|CLOS|::|MAKE-INSTANCE-<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>|
     |CLOS|::|<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>| :|NAME|
     '|COMMON-LISP-USER|::|CHILDREN| :|INITARGS| '#10=(:|CHILDREN|) :|TYPE|
     '|COMMON-LISP|::|T| :|ALLOCATION| ':|INSTANCE| #3#
     (|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| '|COMMON-LISP|::|NIL|
      #11=(|SYSTEM|::|MAKE-CONSTANT-INITFUNCTION| |COMMON-LISP|::|NIL|))
     #5# '(|COMMON-LISP|::|NIL|) #6# '3. #7# '|COMMON-LISP|::|NIL|))
   (|COMMON-LISP|::|LIST|
    (|CLOS|::|MAKE-INSTANCE-<STRUCTURE-DIRECT-SLOT-DEFINITION>|
     |CLOS|::|<STRUCTURE-DIRECT-SLOT-DEFINITION>| :|NAME|
     '|COMMON-LISP-USER|::|CONTENTS| :|INITARGS| '#2# :|TYPE|
     '|COMMON-LISP|::|T| :|ALLOCATION| ':|INSTANCE|
     #12='|CLOS|::|INHERITABLE-INITER|
     (|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| '|COMMON-LISP|::|NIL|
      #4#)
     #13='|CLOS|::|INHERITABLE-DOC| '(|COMMON-LISP|::|NIL|) :|READERS|
     '(|COMMON-LISP-USER|::|NODE-CONTENTS|) :|WRITERS|
     '((|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|NODE-CONTENTS|)))
    (|CLOS|::|MAKE-INSTANCE-<STRUCTURE-DIRECT-SLOT-DEFINITION>|
     |CLOS|::|<STRUCTURE-DIRECT-SLOT-DEFINITION>| :|NAME|
     '|COMMON-LISP-USER|::|IMAGE| :|INITARGS| '#8# :|TYPE| '|COMMON-LISP|::|T|
     :|ALLOCATION| ':|INSTANCE| #12#
     (|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| '|COMMON-LISP|::|NIL|
      #9#)
     #13# '(|COMMON-LISP|::|NIL|) :|READERS|
     '(|COMMON-LISP-USER|::|NODE-IMAGE|) :|WRITERS|
     '((|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|NODE-IMAGE|)))
    (|CLOS|::|MAKE-INSTANCE-<STRUCTURE-DIRECT-SLOT-DEFINITION>|
     |CLOS|::|<STRUCTURE-DIRECT-SLOT-DEFINITION>| :|NAME|
     '|COMMON-LISP-USER|::|CHILDREN| :|INITARGS| '#10# :|TYPE|
     '|COMMON-LISP|::|T| :|ALLOCATION| ':|INSTANCE| #12#
     (|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| '|COMMON-LISP|::|NIL|
      #11#)
     #13# '(|COMMON-LISP|::|NIL|) :|READERS|
     '(|COMMON-LISP-USER|::|NODE-CHILDREN|) :|WRITERS|
     '((|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|NODE-CHILDREN|)))))
  (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|MAKE-NODE|
   (|COMMON-LISP|::|&KEY| (#14=#:|CONTENTS| |COMMON-LISP|::|NIL|)
    (#15=#:|IMAGE| |COMMON-LISP|::|NIL|)
    (#16=#:|CHILDREN| |COMMON-LISP|::|NIL|))
   (|COMMON-LISP|::|LET|
    ((|SYSTEM|::|OBJECT| (|SYSTEM|::|%MAKE-STRUCTURE| #1# 4.)))
    (|COMMON-LISP|::|SETF|
     (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|NODE| |SYSTEM|::|OBJECT|
      1.)
     (|COMMON-LISP|::|THE| |COMMON-LISP|::|T| #14#))
    (|COMMON-LISP|::|SETF|
     (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|NODE| |SYSTEM|::|OBJECT|
      2.)
     (|COMMON-LISP|::|THE| |COMMON-LISP|::|T| #15#))
    (|COMMON-LISP|::|SETF|
     (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|NODE| |SYSTEM|::|OBJECT|
      3.)
     (|COMMON-LISP|::|THE| |COMMON-LISP|::|T| #16#))
    |SYSTEM|::|OBJECT|)))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|NODE-P|))
 (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|NODE-P| (|SYSTEM|::|OBJECT|)
  (|SYSTEM|::|%STRUCTURE-TYPE-P| '|COMMON-LISP-USER|::|NODE|
   |SYSTEM|::|OBJECT|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|COPY-NODE|))
 (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|COPY-NODE|
  (|COMMON-LISP|::|STRUCTURE|)
  (|COMMON-LISP|::|COPY-STRUCTURE| |COMMON-LISP|::|STRUCTURE|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|NODE-CONTENTS|
    (|COMMON-LISP-USER|::|NODE|) |COMMON-LISP|::|T|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|NODE-CONTENTS|))
 (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|NODE-CONTENTS|
  #17=(|SYSTEM|::|OBJECT|)
  (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
   (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|NODE| |SYSTEM|::|OBJECT|
    1.)))
 (|SYSTEM|::|%PUT| '|COMMON-LISP-USER|::|NODE-CONTENTS|
  #18='|SYSTEM|::|DEFSTRUCT-READER| '|COMMON-LISP-USER|::|NODE|)
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|NODE-IMAGE|
    (|COMMON-LISP-USER|::|NODE|) |COMMON-LISP|::|T|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|NODE-IMAGE|))
 (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|NODE-IMAGE| #17#
  (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
   (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|NODE| |SYSTEM|::|OBJECT|
    2.)))
 (|SYSTEM|::|%PUT| '|COMMON-LISP-USER|::|NODE-IMAGE| #18#
  '|COMMON-LISP-USER|::|NODE|)
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|NODE-CHILDREN|
    (|COMMON-LISP-USER|::|NODE|) |COMMON-LISP|::|T|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|NODE-CHILDREN|))
 (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|NODE-CHILDREN| #17#
  (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
   (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|NODE| |SYSTEM|::|OBJECT|
    3.)))
 (|SYSTEM|::|%PUT| '|COMMON-LISP-USER|::|NODE-CHILDREN| #18#
  '|COMMON-LISP-USER|::|NODE|)
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|FUNCTION|
    (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|NODE-CONTENTS|)
    (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|NODE|) |COMMON-LISP|::|T|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE|
    (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|NODE-CONTENTS|)))
 (|COMMON-LISP|::|DEFUN|
  (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|NODE-CONTENTS|)
  #19=(|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
  (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|NODE| |SYSTEM|::|OBJECT|
   1. |SYSTEM|::|VALUE|))
 (|SYSTEM|::|%PUT| '|COMMON-LISP-USER|::|NODE-CONTENTS|
  #20='|SYSTEM|::|DEFSTRUCT-WRITER| '|COMMON-LISP-USER|::|NODE|)
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|FUNCTION|
    (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|NODE-IMAGE|)
    (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|NODE|) |COMMON-LISP|::|T|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE|
    (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|NODE-IMAGE|)))
 (|COMMON-LISP|::|DEFUN|
  (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|NODE-IMAGE|) #19#
  (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|NODE| |SYSTEM|::|OBJECT|
   2. |SYSTEM|::|VALUE|))
 (|SYSTEM|::|%PUT| '|COMMON-LISP-USER|::|NODE-IMAGE| #20#
  '|COMMON-LISP-USER|::|NODE|)
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|FUNCTION|
    (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|NODE-CHILDREN|)
    (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|NODE|) |COMMON-LISP|::|T|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE|
    (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|NODE-CHILDREN|)))
 (|COMMON-LISP|::|DEFUN|
  (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|NODE-CHILDREN|) #19#
  (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|NODE| |SYSTEM|::|OBJECT|
   3. |SYSTEM|::|VALUE|))
 (|SYSTEM|::|%PUT| '|COMMON-LISP-USER|::|NODE-CHILDREN| #20#
  '|COMMON-LISP-USER|::|NODE|)
 (|SYSTEM|::|%SET-DOCUMENTATION| '|COMMON-LISP-USER|::|NODE|
  '|COMMON-LISP|::|TYPE| |COMMON-LISP|::|NIL|)
 (|CLOS|::|DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD| '|COMMON-LISP-USER|::|NODE|)
 '|COMMON-LISP-USER|::|NODE|)
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|MAKE-NODE|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '(|COMMON-LISP|::|&KEY| (#:|CONTENTS| |COMMON-LISP|::|NIL|)
    (#:|IMAGE| |COMMON-LISP|::|NIL|) (#:|CHILDREN| |COMMON-LISP|::|NIL|))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|NODE-P|))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|NODE-P|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '#1=(|SYSTEM|::|OBJECT|))
 '(#1#
   (|COMMON-LISP|::|DECLARE|
    (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|NODE-P|))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|NODE-P|
    (|SYSTEM|::|%STRUCTURE-TYPE-P| '|COMMON-LISP-USER|::|NODE|
     |SYSTEM|::|OBJECT|))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|COPY-NODE|))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|COPY-NODE|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '#1=(|COMMON-LISP|::|STRUCTURE|))
 '(#1#
   (|COMMON-LISP|::|DECLARE|
    (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|COPY-NODE|))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|COPY-NODE|
    (|COMMON-LISP|::|COPY-STRUCTURE| |COMMON-LISP|::|STRUCTURE|))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|NODE-CONTENTS|
   (|COMMON-LISP-USER|::|NODE|) |COMMON-LISP|::|T|))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|NODE-CONTENTS|))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|NODE-CONTENTS|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '#1=(|SYSTEM|::|OBJECT|))
 '(#1#
   (|COMMON-LISP|::|DECLARE|
    (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|NODE-CONTENTS|))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|NODE-CONTENTS|
    (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
     (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|NODE| |SYSTEM|::|OBJECT|
      1.)))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|NODE-IMAGE|
   (|COMMON-LISP-USER|::|NODE|) |COMMON-LISP|::|T|))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|NODE-IMAGE|))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|NODE-IMAGE|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '#1=(|SYSTEM|::|OBJECT|))
 '(#1#
   (|COMMON-LISP|::|DECLARE|
    (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|NODE-IMAGE|))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|NODE-IMAGE|
    (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
     (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|NODE| |SYSTEM|::|OBJECT|
      2.)))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|NODE-CHILDREN|
   (|COMMON-LISP-USER|::|NODE|) |COMMON-LISP|::|T|))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|NODE-CHILDREN|))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|NODE-CHILDREN|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '#1=(|SYSTEM|::|OBJECT|))
 '(#1#
   (|COMMON-LISP|::|DECLARE|
    (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|NODE-CHILDREN|))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|NODE-CHILDREN|
    (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
     (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|NODE| |SYSTEM|::|OBJECT|
      3.)))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|FUNCTION|
   (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|NODE-CONTENTS|)
   (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|NODE|) |COMMON-LISP|::|T|))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE|
   (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|NODE-CONTENTS|)))
(|SYSTEM|::|C-DEFUN|
 '#1=(|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|NODE-CONTENTS|)
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '#2=(|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|))
 '(#2# (|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| #1#))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|NODE-CONTENTS|
    (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|NODE|
     |SYSTEM|::|OBJECT| 1. |SYSTEM|::|VALUE|))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|FUNCTION|
   (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|NODE-IMAGE|)
   (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|NODE|) |COMMON-LISP|::|T|))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE|
   (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|NODE-IMAGE|)))
(|SYSTEM|::|C-DEFUN|
 '#1=(|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|NODE-IMAGE|)
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '#2=(|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|))
 '(#2# (|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| #1#))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|NODE-IMAGE|
    (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|NODE|
     |SYSTEM|::|OBJECT| 2. |SYSTEM|::|VALUE|))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|FUNCTION|
   (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|NODE-CHILDREN|)
   (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|NODE|) |COMMON-LISP|::|T|))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE|
   (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|NODE-CHILDREN|)))
(|SYSTEM|::|C-DEFUN|
 '#1=(|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|NODE-CHILDREN|)
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '#2=(|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|))
 '(#2# (|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| #1#))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|NODE-CHILDREN|
    (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|NODE|
     |SYSTEM|::|OBJECT| 3. |SYSTEM|::|VALUE|))))
(|COMMON-LISP|::|LET| |COMMON-LISP|::|NIL|
 (|COMMON-LISP|::|LET|
  ((#1=#:|G3550|
    (|COMMON-LISP|::|CONS| '|COMMON-LISP-USER|::|LINK|
     (|CLOS|::|CLASS-NAMES|
      (|COMMON-LISP|::|GET| '|COMMON-LISP|::|STRUCTURE-OBJECT|
       '|CLOS|::|CLOSCLASS|)))))
  (|SYSTEM|::|STRUCTURE-UNDEFINE-ACCESSORIES| '|COMMON-LISP-USER|::|LINK|)
  (|COMMON-LISP|::|REMPROP| '|COMMON-LISP-USER|::|LINK|
   '|SYSTEM|::|DEFSTRUCT-DESCRIPTION|)
  (|CLOS|::|DEFINE-STRUCTURE-CLASS| '|COMMON-LISP-USER|::|LINK| #1#
   '|COMMON-LISP-USER|::|MAKE-LINK| '|COMMON-LISP|::|NIL|
   '|COMMON-LISP-USER|::|COPY-LINK| '|COMMON-LISP-USER|::|LINK-P|
   (|COMMON-LISP|::|LIST|
    (|CLOS|::|MAKE-INSTANCE-<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>|
     |CLOS|::|<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>| :|NAME|
     '|COMMON-LISP-USER|::|TEST| :|INITARGS| '#2=(:|TEST|) :|TYPE|
     '|COMMON-LISP|::|T| :|ALLOCATION| ':|INSTANCE|
     #3='|CLOS|::|INHERITABLE-INITER|
     (|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| '|COMMON-LISP|::|NIL|
      #4=(|SYSTEM|::|MAKE-CONSTANT-INITFUNCTION| |COMMON-LISP|::|NIL|))
     #5='|CLOS|::|INHERITABLE-DOC| '(|COMMON-LISP|::|NIL|)
     #6='|CLOS|::|LOCATION| '1. #7='|CLOS|::|READONLY| '|COMMON-LISP|::|NIL|)
    (|CLOS|::|MAKE-INSTANCE-<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>|
     |CLOS|::|<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>| :|NAME|
     '|COMMON-LISP-USER|::|CHILD| :|INITARGS| '#8=(:|CHILD|) :|TYPE|
     '|COMMON-LISP|::|T| :|ALLOCATION| ':|INSTANCE| #3#
     (|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| '|COMMON-LISP|::|NIL|
      #9=(|SYSTEM|::|MAKE-CONSTANT-INITFUNCTION| |COMMON-LISP|::|NIL|))
     #5# '(|COMMON-LISP|::|NIL|) #6# '2. #7# '|COMMON-LISP|::|NIL|))
   (|COMMON-LISP|::|LIST|
    (|CLOS|::|MAKE-INSTANCE-<STRUCTURE-DIRECT-SLOT-DEFINITION>|
     |CLOS|::|<STRUCTURE-DIRECT-SLOT-DEFINITION>| :|NAME|
     '|COMMON-LISP-USER|::|TEST| :|INITARGS| '#2# :|TYPE| '|COMMON-LISP|::|T|
     :|ALLOCATION| ':|INSTANCE| #10='|CLOS|::|INHERITABLE-INITER|
     (|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| '|COMMON-LISP|::|NIL|
      #4#)
     #11='|CLOS|::|INHERITABLE-DOC| '(|COMMON-LISP|::|NIL|) :|READERS|
     '(|COMMON-LISP-USER|::|LINK-TEST|) :|WRITERS|
     '((|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|LINK-TEST|)))
    (|CLOS|::|MAKE-INSTANCE-<STRUCTURE-DIRECT-SLOT-DEFINITION>|
     |CLOS|::|<STRUCTURE-DIRECT-SLOT-DEFINITION>| :|NAME|
     '|COMMON-LISP-USER|::|CHILD| :|INITARGS| '#8# :|TYPE| '|COMMON-LISP|::|T|
     :|ALLOCATION| ':|INSTANCE| #10#
     (|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| '|COMMON-LISP|::|NIL|
      #9#)
     #11# '(|COMMON-LISP|::|NIL|) :|READERS|
     '(|COMMON-LISP-USER|::|LINK-CHILD|) :|WRITERS|
     '((|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|LINK-CHILD|)))))
  (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|MAKE-LINK|
   (|COMMON-LISP|::|&KEY| (#12=#:|TEST| |COMMON-LISP|::|NIL|)
    (#13=#:|CHILD| |COMMON-LISP|::|NIL|))
   (|COMMON-LISP|::|LET|
    ((|SYSTEM|::|OBJECT| (|SYSTEM|::|%MAKE-STRUCTURE| #1# 3.)))
    (|COMMON-LISP|::|SETF|
     (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|LINK| |SYSTEM|::|OBJECT|
      1.)
     (|COMMON-LISP|::|THE| |COMMON-LISP|::|T| #12#))
    (|COMMON-LISP|::|SETF|
     (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|LINK| |SYSTEM|::|OBJECT|
      2.)
     (|COMMON-LISP|::|THE| |COMMON-LISP|::|T| #13#))
    |SYSTEM|::|OBJECT|)))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|LINK-P|))
 (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|LINK-P| (|SYSTEM|::|OBJECT|)
  (|SYSTEM|::|%STRUCTURE-TYPE-P| '|COMMON-LISP-USER|::|LINK|
   |SYSTEM|::|OBJECT|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|COPY-LINK|))
 (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|COPY-LINK|
  (|COMMON-LISP|::|STRUCTURE|)
  (|COMMON-LISP|::|COPY-STRUCTURE| |COMMON-LISP|::|STRUCTURE|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|LINK-TEST|
    (|COMMON-LISP-USER|::|LINK|) |COMMON-LISP|::|T|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|LINK-TEST|))
 (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|LINK-TEST|
  #14=(|SYSTEM|::|OBJECT|)
  (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
   (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|LINK| |SYSTEM|::|OBJECT|
    1.)))
 (|SYSTEM|::|%PUT| '|COMMON-LISP-USER|::|LINK-TEST|
  #15='|SYSTEM|::|DEFSTRUCT-READER| '|COMMON-LISP-USER|::|LINK|)
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|LINK-CHILD|
    (|COMMON-LISP-USER|::|LINK|) |COMMON-LISP|::|T|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|LINK-CHILD|))
 (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|LINK-CHILD| #14#
  (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
   (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|LINK| |SYSTEM|::|OBJECT|
    2.)))
 (|SYSTEM|::|%PUT| '|COMMON-LISP-USER|::|LINK-CHILD| #15#
  '|COMMON-LISP-USER|::|LINK|)
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|FUNCTION|
    (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|LINK-TEST|)
    (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|LINK|) |COMMON-LISP|::|T|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE|
    (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|LINK-TEST|)))
 (|COMMON-LISP|::|DEFUN|
  (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|LINK-TEST|)
  #16=(|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
  (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|LINK| |SYSTEM|::|OBJECT|
   1. |SYSTEM|::|VALUE|))
 (|SYSTEM|::|%PUT| '|COMMON-LISP-USER|::|LINK-TEST|
  #17='|SYSTEM|::|DEFSTRUCT-WRITER| '|COMMON-LISP-USER|::|LINK|)
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|FUNCTION|
    (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|LINK-CHILD|)
    (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|LINK|) |COMMON-LISP|::|T|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE|
    (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|LINK-CHILD|)))
 (|COMMON-LISP|::|DEFUN|
  (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|LINK-CHILD|) #16#
  (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|LINK| |SYSTEM|::|OBJECT|
   2. |SYSTEM|::|VALUE|))
 (|SYSTEM|::|%PUT| '|COMMON-LISP-USER|::|LINK-CHILD| #17#
  '|COMMON-LISP-USER|::|LINK|)
 (|SYSTEM|::|%SET-DOCUMENTATION| '|COMMON-LISP-USER|::|LINK|
  '|COMMON-LISP|::|TYPE| |COMMON-LISP|::|NIL|)
 (|CLOS|::|DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD| '|COMMON-LISP-USER|::|LINK|)
 '|COMMON-LISP-USER|::|LINK|)
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|MAKE-LINK|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '(|COMMON-LISP|::|&KEY| (#:|TEST| |COMMON-LISP|::|NIL|)
    (#:|CHILD| |COMMON-LISP|::|NIL|))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|LINK-P|))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|LINK-P|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '#1=(|SYSTEM|::|OBJECT|))
 '(#1#
   (|COMMON-LISP|::|DECLARE|
    (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|LINK-P|))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|LINK-P|
    (|SYSTEM|::|%STRUCTURE-TYPE-P| '|COMMON-LISP-USER|::|LINK|
     |SYSTEM|::|OBJECT|))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|COPY-LINK|))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|COPY-LINK|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '#1=(|COMMON-LISP|::|STRUCTURE|))
 '(#1#
   (|COMMON-LISP|::|DECLARE|
    (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|COPY-LINK|))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|COPY-LINK|
    (|COMMON-LISP|::|COPY-STRUCTURE| |COMMON-LISP|::|STRUCTURE|))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|LINK-TEST|
   (|COMMON-LISP-USER|::|LINK|) |COMMON-LISP|::|T|))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|LINK-TEST|))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|LINK-TEST|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '#1=(|SYSTEM|::|OBJECT|))
 '(#1#
   (|COMMON-LISP|::|DECLARE|
    (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|LINK-TEST|))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|LINK-TEST|
    (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
     (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|LINK| |SYSTEM|::|OBJECT|
      1.)))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|LINK-CHILD|
   (|COMMON-LISP-USER|::|LINK|) |COMMON-LISP|::|T|))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|LINK-CHILD|))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|LINK-CHILD|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '#1=(|SYSTEM|::|OBJECT|))
 '(#1#
   (|COMMON-LISP|::|DECLARE|
    (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|LINK-CHILD|))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|LINK-CHILD|
    (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
     (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|LINK| |SYSTEM|::|OBJECT|
      2.)))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|FUNCTION|
   (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|LINK-TEST|)
   (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|LINK|) |COMMON-LISP|::|T|))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE|
   (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|LINK-TEST|)))
(|SYSTEM|::|C-DEFUN|
 '#1=(|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|LINK-TEST|)
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '#2=(|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|))
 '(#2# (|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| #1#))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|LINK-TEST|
    (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|LINK|
     |SYSTEM|::|OBJECT| 1. |SYSTEM|::|VALUE|))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|FUNCTION|
   (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|LINK-CHILD|)
   (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|LINK|) |COMMON-LISP|::|T|))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE|
   (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|LINK-CHILD|)))
(|SYSTEM|::|C-DEFUN|
 '#1=(|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|LINK-CHILD|)
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '#2=(|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|))
 '(#2# (|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| #1#))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|LINK-CHILD|
    (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|LINK|
     |SYSTEM|::|OBJECT| 2. |SYSTEM|::|VALUE|))))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|FAMILIARISE|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '(|COMMON-LISP-USER|::|MODEL| |COMMON-LISP-USER|::|NODE|
    |COMMON-LISP-USER|::|PATTERN|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|DISCRIMINATE|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '(|COMMON-LISP-USER|::|MODEL| |COMMON-LISP-USER|::|NODE|
    |COMMON-LISP-USER|::|PATTERN|)))
(|COMMON-LISP|::|LET| |COMMON-LISP|::|NIL|
 (|COMMON-LISP|::|LET|
  ((#1=#:|G3661|
    (|COMMON-LISP|::|CONS| '|COMMON-LISP-USER|::|STM|
     (|CLOS|::|CLASS-NAMES|
      (|COMMON-LISP|::|GET| '|COMMON-LISP|::|STRUCTURE-OBJECT|
       '|CLOS|::|CLOSCLASS|)))))
  (|SYSTEM|::|STRUCTURE-UNDEFINE-ACCESSORIES| '|COMMON-LISP-USER|::|STM|)
  (|COMMON-LISP|::|REMPROP| '|COMMON-LISP-USER|::|STM|
   '|SYSTEM|::|DEFSTRUCT-DESCRIPTION|)
  (|CLOS|::|DEFINE-STRUCTURE-CLASS| '|COMMON-LISP-USER|::|STM| #1#
   '|COMMON-LISP-USER|::|MAKE-STM| '|COMMON-LISP|::|NIL|
   '|COMMON-LISP-USER|::|COPY-STM| '|COMMON-LISP-USER|::|STM-P|
   (|COMMON-LISP|::|LIST|
    (|CLOS|::|MAKE-INSTANCE-<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>|
     |CLOS|::|<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>| :|NAME|
     '|COMMON-LISP-USER|::|VISUAL| :|INITARGS| '#2=(:|VISUAL|) :|TYPE|
     '|COMMON-LISP|::|T| :|ALLOCATION| ':|INSTANCE|
     #3='|CLOS|::|INHERITABLE-INITER|
     (|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| '|COMMON-LISP|::|NIL|
      #4=(|SYSTEM|::|MAKE-CONSTANT-INITFUNCTION| |COMMON-LISP|::|NIL|))
     #5='|CLOS|::|INHERITABLE-DOC| '(|COMMON-LISP|::|NIL|)
     #6='|CLOS|::|LOCATION| '1. #7='|CLOS|::|READONLY| '|COMMON-LISP|::|NIL|)
    (|CLOS|::|MAKE-INSTANCE-<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>|
     |CLOS|::|<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>| :|NAME|
     '|COMMON-LISP-USER|::|VERBAL| :|INITARGS| '#8=(:|VERBAL|) :|TYPE|
     '|COMMON-LISP|::|T| :|ALLOCATION| ':|INSTANCE| #3#
     (|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| '|COMMON-LISP|::|NIL|
      #9=(|SYSTEM|::|MAKE-CONSTANT-INITFUNCTION| |COMMON-LISP|::|NIL|))
     #5# '(|COMMON-LISP|::|NIL|) #6# '2. #7# '|COMMON-LISP|::|NIL|))
   (|COMMON-LISP|::|LIST|
    (|CLOS|::|MAKE-INSTANCE-<STRUCTURE-DIRECT-SLOT-DEFINITION>|
     |CLOS|::|<STRUCTURE-DIRECT-SLOT-DEFINITION>| :|NAME|
     '|COMMON-LISP-USER|::|VISUAL| :|INITARGS| '#2# :|TYPE| '|COMMON-LISP|::|T|
     :|ALLOCATION| ':|INSTANCE| #10='|CLOS|::|INHERITABLE-INITER|
     (|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| '|COMMON-LISP|::|NIL|
      #4#)
     #11='|CLOS|::|INHERITABLE-DOC| '(|COMMON-LISP|::|NIL|) :|READERS|
     '(|COMMON-LISP-USER|::|STM-VISUAL|) :|WRITERS|
     '((|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|STM-VISUAL|)))
    (|CLOS|::|MAKE-INSTANCE-<STRUCTURE-DIRECT-SLOT-DEFINITION>|
     |CLOS|::|<STRUCTURE-DIRECT-SLOT-DEFINITION>| :|NAME|
     '|COMMON-LISP-USER|::|VERBAL| :|INITARGS| '#8# :|TYPE| '|COMMON-LISP|::|T|
     :|ALLOCATION| ':|INSTANCE| #10#
     (|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| '|COMMON-LISP|::|NIL|
      #9#)
     #11# '(|COMMON-LISP|::|NIL|) :|READERS|
     '(|COMMON-LISP-USER|::|STM-VERBAL|) :|WRITERS|
     '((|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|STM-VERBAL|)))))
  (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|MAKE-STM|
   (|COMMON-LISP|::|&KEY| (#12=#:|VISUAL| |COMMON-LISP|::|NIL|)
    (#13=#:|VERBAL| |COMMON-LISP|::|NIL|))
   (|COMMON-LISP|::|LET|
    ((|SYSTEM|::|OBJECT| (|SYSTEM|::|%MAKE-STRUCTURE| #1# 3.)))
    (|COMMON-LISP|::|SETF|
     (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|STM| |SYSTEM|::|OBJECT|
      1.)
     (|COMMON-LISP|::|THE| |COMMON-LISP|::|T| #12#))
    (|COMMON-LISP|::|SETF|
     (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|STM| |SYSTEM|::|OBJECT|
      2.)
     (|COMMON-LISP|::|THE| |COMMON-LISP|::|T| #13#))
    |SYSTEM|::|OBJECT|)))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|STM-P|))
 (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|STM-P| (|SYSTEM|::|OBJECT|)
  (|SYSTEM|::|%STRUCTURE-TYPE-P| '|COMMON-LISP-USER|::|STM|
   |SYSTEM|::|OBJECT|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|COPY-STM|))
 (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|COPY-STM|
  (|COMMON-LISP|::|STRUCTURE|)
  (|COMMON-LISP|::|COPY-STRUCTURE| |COMMON-LISP|::|STRUCTURE|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|STM-VISUAL|
    (|COMMON-LISP-USER|::|STM|) |COMMON-LISP|::|T|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|STM-VISUAL|))
 (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|STM-VISUAL|
  #14=(|SYSTEM|::|OBJECT|)
  (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
   (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|STM| |SYSTEM|::|OBJECT|
    1.)))
 (|SYSTEM|::|%PUT| '|COMMON-LISP-USER|::|STM-VISUAL|
  #15='|SYSTEM|::|DEFSTRUCT-READER| '|COMMON-LISP-USER|::|STM|)
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|STM-VERBAL|
    (|COMMON-LISP-USER|::|STM|) |COMMON-LISP|::|T|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|STM-VERBAL|))
 (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|STM-VERBAL| #14#
  (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
   (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|STM| |SYSTEM|::|OBJECT|
    2.)))
 (|SYSTEM|::|%PUT| '|COMMON-LISP-USER|::|STM-VERBAL| #15#
  '|COMMON-LISP-USER|::|STM|)
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|FUNCTION|
    (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|STM-VISUAL|)
    (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|STM|) |COMMON-LISP|::|T|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE|
    (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|STM-VISUAL|)))
 (|COMMON-LISP|::|DEFUN|
  (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|STM-VISUAL|)
  #16=(|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
  (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|STM| |SYSTEM|::|OBJECT|
   1. |SYSTEM|::|VALUE|))
 (|SYSTEM|::|%PUT| '|COMMON-LISP-USER|::|STM-VISUAL|
  #17='|SYSTEM|::|DEFSTRUCT-WRITER| '|COMMON-LISP-USER|::|STM|)
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|FUNCTION|
    (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|STM-VERBAL|)
    (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|STM|) |COMMON-LISP|::|T|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE|
    (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|STM-VERBAL|)))
 (|COMMON-LISP|::|DEFUN|
  (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|STM-VERBAL|) #16#
  (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|STM| |SYSTEM|::|OBJECT|
   2. |SYSTEM|::|VALUE|))
 (|SYSTEM|::|%PUT| '|COMMON-LISP-USER|::|STM-VERBAL| #17#
  '|COMMON-LISP-USER|::|STM|)
 (|SYSTEM|::|%SET-DOCUMENTATION| '|COMMON-LISP-USER|::|STM|
  '|COMMON-LISP|::|TYPE| |COMMON-LISP|::|NIL|)
 (|CLOS|::|DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD| '|COMMON-LISP-USER|::|STM|)
 '|COMMON-LISP-USER|::|STM|)
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|MAKE-STM|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '(|COMMON-LISP|::|&KEY| (#:|VISUAL| |COMMON-LISP|::|NIL|)
    (#:|VERBAL| |COMMON-LISP|::|NIL|))))
(|SYSTEM|::|C-PROCLAIM| '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|STM-P|))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|STM-P|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '#1=(|SYSTEM|::|OBJECT|))
 '(#1#
   (|COMMON-LISP|::|DECLARE|
    (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|STM-P|))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|STM-P|
    (|SYSTEM|::|%STRUCTURE-TYPE-P| '|COMMON-LISP-USER|::|STM|
     |SYSTEM|::|OBJECT|))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|COPY-STM|))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|COPY-STM|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '#1=(|COMMON-LISP|::|STRUCTURE|))
 '(#1#
   (|COMMON-LISP|::|DECLARE|
    (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|COPY-STM|))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|COPY-STM|
    (|COMMON-LISP|::|COPY-STRUCTURE| |COMMON-LISP|::|STRUCTURE|))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|STM-VISUAL|
   (|COMMON-LISP-USER|::|STM|) |COMMON-LISP|::|T|))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|STM-VISUAL|))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|STM-VISUAL|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '#1=(|SYSTEM|::|OBJECT|))
 '(#1#
   (|COMMON-LISP|::|DECLARE|
    (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|STM-VISUAL|))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|STM-VISUAL|
    (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
     (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|STM| |SYSTEM|::|OBJECT|
      1.)))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|STM-VERBAL|
   (|COMMON-LISP-USER|::|STM|) |COMMON-LISP|::|T|))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|STM-VERBAL|))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|STM-VERBAL|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '#1=(|SYSTEM|::|OBJECT|))
 '(#1#
   (|COMMON-LISP|::|DECLARE|
    (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|STM-VERBAL|))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|STM-VERBAL|
    (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
     (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|STM| |SYSTEM|::|OBJECT|
      2.)))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|FUNCTION|
   (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|STM-VISUAL|)
   (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|STM|) |COMMON-LISP|::|T|))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE|
   (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|STM-VISUAL|)))
(|SYSTEM|::|C-DEFUN|
 '#1=(|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|STM-VISUAL|)
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '#2=(|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|))
 '(#2# (|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| #1#))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|STM-VISUAL|
    (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|STM| |SYSTEM|::|OBJECT|
     1. |SYSTEM|::|VALUE|))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|FUNCTION|
   (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|STM-VERBAL|)
   (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|STM|) |COMMON-LISP|::|T|))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE|
   (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|STM-VERBAL|)))
(|SYSTEM|::|C-DEFUN|
 '#1=(|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|STM-VERBAL|)
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '#2=(|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|))
 '(#2# (|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| #1#))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|STM-VERBAL|
    (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|STM| |SYSTEM|::|OBJECT|
     2. |SYSTEM|::|VALUE|))))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|ADD-TO-STM|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '(|COMMON-LISP-USER|::|NODE| |COMMON-LISP-USER|::|STM|)))
(|COMMON-LISP|::|LET| |COMMON-LISP|::|NIL|
 (|COMMON-LISP|::|LET|
  ((#1=#:|G3712|
    (|COMMON-LISP|::|CONS| '|COMMON-LISP-USER|::|FIXED-QUEUE|
     (|CLOS|::|CLASS-NAMES|
      (|COMMON-LISP|::|GET| '|COMMON-LISP|::|STRUCTURE-OBJECT|
       '|CLOS|::|CLOSCLASS|)))))
  (|SYSTEM|::|STRUCTURE-UNDEFINE-ACCESSORIES|
   '|COMMON-LISP-USER|::|FIXED-QUEUE|)
  (|COMMON-LISP|::|REMPROP| '|COMMON-LISP-USER|::|FIXED-QUEUE|
   '|SYSTEM|::|DEFSTRUCT-DESCRIPTION|)
  (|CLOS|::|DEFINE-STRUCTURE-CLASS| '|COMMON-LISP-USER|::|FIXED-QUEUE| #1#
   '|COMMON-LISP-USER|::|MAKE-FIXED-QUEUE| '|COMMON-LISP|::|NIL|
   '|COMMON-LISP-USER|::|COPY-FIXED-QUEUE| '|COMMON-LISP-USER|::|FIXED-QUEUE-P|
   (|COMMON-LISP|::|LIST|
    (|CLOS|::|MAKE-INSTANCE-<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>|
     |CLOS|::|<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>| :|NAME|
     '|COMMON-LISP-USER|::|SIZE| :|INITARGS| '#2=(:|SIZE|) :|TYPE|
     '|COMMON-LISP|::|T| :|ALLOCATION| ':|INSTANCE|
     #3='|CLOS|::|INHERITABLE-INITER|
     (|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| '|COMMON-LISP|::|NIL|
      #4=(|SYSTEM|::|MAKE-CONSTANT-INITFUNCTION| |COMMON-LISP|::|NIL|))
     #5='|CLOS|::|INHERITABLE-DOC| '(|COMMON-LISP|::|NIL|)
     #6='|CLOS|::|LOCATION| '1. #7='|CLOS|::|READONLY| '|COMMON-LISP|::|NIL|)
    (|CLOS|::|MAKE-INSTANCE-<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>|
     |CLOS|::|<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>| :|NAME|
     '|COMMON-LISP-USER|::|ITEMS| :|INITARGS| '#8=(:|ITEMS|) :|TYPE|
     '|COMMON-LISP|::|T| :|ALLOCATION| ':|INSTANCE| #3#
     (|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| '|COMMON-LISP|::|NIL|
      #9=(|SYSTEM|::|MAKE-CONSTANT-INITFUNCTION| |COMMON-LISP|::|NIL|))
     #5# '(|COMMON-LISP|::|NIL|) #6# '2. #7# '|COMMON-LISP|::|NIL|))
   (|COMMON-LISP|::|LIST|
    (|CLOS|::|MAKE-INSTANCE-<STRUCTURE-DIRECT-SLOT-DEFINITION>|
     |CLOS|::|<STRUCTURE-DIRECT-SLOT-DEFINITION>| :|NAME|
     '|COMMON-LISP-USER|::|SIZE| :|INITARGS| '#2# :|TYPE| '|COMMON-LISP|::|T|
     :|ALLOCATION| ':|INSTANCE| #10='|CLOS|::|INHERITABLE-INITER|
     (|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| '|COMMON-LISP|::|NIL|
      #4#)
     #11='|CLOS|::|INHERITABLE-DOC| '(|COMMON-LISP|::|NIL|) :|READERS|
     '(|COMMON-LISP-USER|::|FIXED-QUEUE-SIZE|) :|WRITERS|
     '((|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|FIXED-QUEUE-SIZE|)))
    (|CLOS|::|MAKE-INSTANCE-<STRUCTURE-DIRECT-SLOT-DEFINITION>|
     |CLOS|::|<STRUCTURE-DIRECT-SLOT-DEFINITION>| :|NAME|
     '|COMMON-LISP-USER|::|ITEMS| :|INITARGS| '#8# :|TYPE| '|COMMON-LISP|::|T|
     :|ALLOCATION| ':|INSTANCE| #10#
     (|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| '|COMMON-LISP|::|NIL|
      #9#)
     #11# '(|COMMON-LISP|::|NIL|) :|READERS|
     '(|COMMON-LISP-USER|::|FIXED-QUEUE-ITEMS|) :|WRITERS|
     '((|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|FIXED-QUEUE-ITEMS|)))))
  (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|MAKE-FIXED-QUEUE|
   (|COMMON-LISP|::|&KEY| (#12=#:|SIZE| |COMMON-LISP|::|NIL|)
    (#13=#:|ITEMS| |COMMON-LISP|::|NIL|))
   (|COMMON-LISP|::|LET|
    ((|SYSTEM|::|OBJECT| (|SYSTEM|::|%MAKE-STRUCTURE| #1# 3.)))
    (|COMMON-LISP|::|SETF|
     (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|FIXED-QUEUE|
      |SYSTEM|::|OBJECT| 1.)
     (|COMMON-LISP|::|THE| |COMMON-LISP|::|T| #12#))
    (|COMMON-LISP|::|SETF|
     (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|FIXED-QUEUE|
      |SYSTEM|::|OBJECT| 2.)
     (|COMMON-LISP|::|THE| |COMMON-LISP|::|T| #13#))
    |SYSTEM|::|OBJECT|)))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|FIXED-QUEUE-P|))
 (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|FIXED-QUEUE-P|
  (|SYSTEM|::|OBJECT|)
  (|SYSTEM|::|%STRUCTURE-TYPE-P| '|COMMON-LISP-USER|::|FIXED-QUEUE|
   |SYSTEM|::|OBJECT|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|COPY-FIXED-QUEUE|))
 (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|COPY-FIXED-QUEUE|
  (|COMMON-LISP|::|STRUCTURE|)
  (|COMMON-LISP|::|COPY-STRUCTURE| |COMMON-LISP|::|STRUCTURE|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|FIXED-QUEUE-SIZE|
    (|COMMON-LISP-USER|::|FIXED-QUEUE|) |COMMON-LISP|::|T|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|FIXED-QUEUE-SIZE|))
 (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|FIXED-QUEUE-SIZE|
  #14=(|SYSTEM|::|OBJECT|)
  (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
   (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|FIXED-QUEUE|
    |SYSTEM|::|OBJECT| 1.)))
 (|SYSTEM|::|%PUT| '|COMMON-LISP-USER|::|FIXED-QUEUE-SIZE|
  #15='|SYSTEM|::|DEFSTRUCT-READER| '|COMMON-LISP-USER|::|FIXED-QUEUE|)
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|FIXED-QUEUE-ITEMS|
    (|COMMON-LISP-USER|::|FIXED-QUEUE|) |COMMON-LISP|::|T|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|FIXED-QUEUE-ITEMS|))
 (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|FIXED-QUEUE-ITEMS| #14#
  (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
   (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|FIXED-QUEUE|
    |SYSTEM|::|OBJECT| 2.)))
 (|SYSTEM|::|%PUT| '|COMMON-LISP-USER|::|FIXED-QUEUE-ITEMS| #15#
  '|COMMON-LISP-USER|::|FIXED-QUEUE|)
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|FUNCTION|
    (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|FIXED-QUEUE-SIZE|)
    (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|FIXED-QUEUE|) |COMMON-LISP|::|T|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE|
    (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|FIXED-QUEUE-SIZE|)))
 (|COMMON-LISP|::|DEFUN|
  (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|FIXED-QUEUE-SIZE|)
  #16=(|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
  (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|FIXED-QUEUE|
   |SYSTEM|::|OBJECT| 1. |SYSTEM|::|VALUE|))
 (|SYSTEM|::|%PUT| '|COMMON-LISP-USER|::|FIXED-QUEUE-SIZE|
  #17='|SYSTEM|::|DEFSTRUCT-WRITER| '|COMMON-LISP-USER|::|FIXED-QUEUE|)
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|FUNCTION|
    (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|FIXED-QUEUE-ITEMS|)
    (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|FIXED-QUEUE|) |COMMON-LISP|::|T|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE|
    (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|FIXED-QUEUE-ITEMS|)))
 (|COMMON-LISP|::|DEFUN|
  (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|FIXED-QUEUE-ITEMS|) #16#
  (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|FIXED-QUEUE|
   |SYSTEM|::|OBJECT| 2. |SYSTEM|::|VALUE|))
 (|SYSTEM|::|%PUT| '|COMMON-LISP-USER|::|FIXED-QUEUE-ITEMS| #17#
  '|COMMON-LISP-USER|::|FIXED-QUEUE|)
 (|SYSTEM|::|%SET-DOCUMENTATION| '|COMMON-LISP-USER|::|FIXED-QUEUE|
  '|COMMON-LISP|::|TYPE| |COMMON-LISP|::|NIL|)
 (|CLOS|::|DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD|
  '|COMMON-LISP-USER|::|FIXED-QUEUE|)
 '|COMMON-LISP-USER|::|FIXED-QUEUE|)
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|MAKE-FIXED-QUEUE|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '(|COMMON-LISP|::|&KEY| (#:|SIZE| |COMMON-LISP|::|NIL|)
    (#:|ITEMS| |COMMON-LISP|::|NIL|))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|FIXED-QUEUE-P|))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|FIXED-QUEUE-P|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '#1=(|SYSTEM|::|OBJECT|))
 '(#1#
   (|COMMON-LISP|::|DECLARE|
    (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|FIXED-QUEUE-P|))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|FIXED-QUEUE-P|
    (|SYSTEM|::|%STRUCTURE-TYPE-P| '|COMMON-LISP-USER|::|FIXED-QUEUE|
     |SYSTEM|::|OBJECT|))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|COPY-FIXED-QUEUE|))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|COPY-FIXED-QUEUE|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '#1=(|COMMON-LISP|::|STRUCTURE|))
 '(#1#
   (|COMMON-LISP|::|DECLARE|
    (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|COPY-FIXED-QUEUE|))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|COPY-FIXED-QUEUE|
    (|COMMON-LISP|::|COPY-STRUCTURE| |COMMON-LISP|::|STRUCTURE|))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|FIXED-QUEUE-SIZE|
   (|COMMON-LISP-USER|::|FIXED-QUEUE|) |COMMON-LISP|::|T|))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|FIXED-QUEUE-SIZE|))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|FIXED-QUEUE-SIZE|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '#1=(|SYSTEM|::|OBJECT|))
 '(#1#
   (|COMMON-LISP|::|DECLARE|
    (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|FIXED-QUEUE-SIZE|))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|FIXED-QUEUE-SIZE|
    (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
     (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|FIXED-QUEUE|
      |SYSTEM|::|OBJECT| 1.)))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|FIXED-QUEUE-ITEMS|
   (|COMMON-LISP-USER|::|FIXED-QUEUE|) |COMMON-LISP|::|T|))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|FIXED-QUEUE-ITEMS|))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|FIXED-QUEUE-ITEMS|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '#1=(|SYSTEM|::|OBJECT|))
 '(#1#
   (|COMMON-LISP|::|DECLARE|
    (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|FIXED-QUEUE-ITEMS|))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|FIXED-QUEUE-ITEMS|
    (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
     (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|FIXED-QUEUE|
      |SYSTEM|::|OBJECT| 2.)))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|FUNCTION|
   (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|FIXED-QUEUE-SIZE|)
   (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|FIXED-QUEUE|) |COMMON-LISP|::|T|))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE|
   (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|FIXED-QUEUE-SIZE|)))
(|SYSTEM|::|C-DEFUN|
 '#1=(|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|FIXED-QUEUE-SIZE|)
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '#2=(|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|))
 '(#2# (|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| #1#))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|FIXED-QUEUE-SIZE|
    (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|FIXED-QUEUE|
     |SYSTEM|::|OBJECT| 1. |SYSTEM|::|VALUE|))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|FUNCTION|
   (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|FIXED-QUEUE-ITEMS|)
   (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|FIXED-QUEUE|) |COMMON-LISP|::|T|))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE|
   (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|FIXED-QUEUE-ITEMS|)))
(|SYSTEM|::|C-DEFUN|
 '#1=(|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|FIXED-QUEUE-ITEMS|)
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '#2=(|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|))
 '(#2# (|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| #1#))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|FIXED-QUEUE-ITEMS|
    (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|FIXED-QUEUE|
     |SYSTEM|::|OBJECT| 2. |SYSTEM|::|VALUE|))))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|ADD-ITEM|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '(|COMMON-LISP-USER|::|ITEM| |COMMON-LISP-USER|::|QUEUE|)))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|TAKE|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '(|COMMON-LISP-USER|::|N| |COMMON-LISP-USER|::|LST|
    |COMMON-LISP|::|&OPTIONAL|
    (|COMMON-LISP-USER|::|TAKEN| |COMMON-LISP|::|NIL|))))
(|COMMON-LISP|::|LET| |COMMON-LISP|::|NIL|
 (|COMMON-LISP|::|LET|
  ((#1=#:|G3776|
    (|COMMON-LISP|::|CONS| '|COMMON-LISP-USER|::|CHREST|
     (|CLOS|::|CLASS-NAMES|
      (|COMMON-LISP|::|GET| '|COMMON-LISP|::|STRUCTURE-OBJECT|
       '|CLOS|::|CLOSCLASS|)))))
  (|SYSTEM|::|STRUCTURE-UNDEFINE-ACCESSORIES| '|COMMON-LISP-USER|::|CHREST|)
  (|COMMON-LISP|::|REMPROP| '|COMMON-LISP-USER|::|CHREST|
   '|SYSTEM|::|DEFSTRUCT-DESCRIPTION|)
  (|CLOS|::|DEFINE-STRUCTURE-CLASS| '|COMMON-LISP-USER|::|CHREST| #1#
   '|COMMON-LISP-USER|::|MAKE-CHREST| '|COMMON-LISP|::|NIL|
   '|COMMON-LISP-USER|::|COPY-CHREST| '|COMMON-LISP-USER|::|CHREST-P|
   (|COMMON-LISP|::|LIST|
    (|CLOS|::|MAKE-INSTANCE-<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>|
     |CLOS|::|<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>| :|NAME|
     '|COMMON-LISP-USER|::|CLOCK| :|INITARGS| '#2=(:|CLOCK|) :|TYPE|
     '|COMMON-LISP|::|T| :|ALLOCATION| ':|INSTANCE|
     #3='|CLOS|::|INHERITABLE-INITER|
     (|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| '|COMMON-LISP|::|NIL|
      #4=(|SYSTEM|::|MAKE-CONSTANT-INITFUNCTION| |COMMON-LISP|::|NIL|))
     #5='|CLOS|::|INHERITABLE-DOC| '(|COMMON-LISP|::|NIL|)
     #6='|CLOS|::|LOCATION| '1. #7='|CLOS|::|READONLY| '|COMMON-LISP|::|NIL|)
    (|CLOS|::|MAKE-INSTANCE-<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>|
     |CLOS|::|<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>| :|NAME|
     '|COMMON-LISP-USER|::|DISCRIMINATION-TIME| :|INITARGS|
     '#8=(:|DISCRIMINATION-TIME|) :|TYPE| '|COMMON-LISP|::|T| :|ALLOCATION|
     ':|INSTANCE| #3#
     (|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| '|COMMON-LISP|::|NIL|
      #9=(|SYSTEM|::|MAKE-CONSTANT-INITFUNCTION| |COMMON-LISP|::|NIL|))
     #5# '(|COMMON-LISP|::|NIL|) #6# '2. #7# '|COMMON-LISP|::|NIL|)
    (|CLOS|::|MAKE-INSTANCE-<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>|
     |CLOS|::|<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>| :|NAME|
     '|COMMON-LISP-USER|::|FAMILIARISATION-TIME| :|INITARGS|
     '#10=(:|FAMILIARISATION-TIME|) :|TYPE| '|COMMON-LISP|::|T| :|ALLOCATION|
     ':|INSTANCE| #3#
     (|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| '|COMMON-LISP|::|NIL|
      #11=(|SYSTEM|::|MAKE-CONSTANT-INITFUNCTION| |COMMON-LISP|::|NIL|))
     #5# '(|COMMON-LISP|::|NIL|) #6# '3. #7# '|COMMON-LISP|::|NIL|)
    (|CLOS|::|MAKE-INSTANCE-<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>|
     |CLOS|::|<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>| :|NAME|
     '|COMMON-LISP-USER|::|LTM| :|INITARGS| '#12=(:|LTM|) :|TYPE|
     '|COMMON-LISP|::|T| :|ALLOCATION| ':|INSTANCE| #3#
     (|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| '|COMMON-LISP|::|NIL|
      #13=(|SYSTEM|::|MAKE-CONSTANT-INITFUNCTION| |COMMON-LISP|::|NIL|))
     #5# '(|COMMON-LISP|::|NIL|) #6# '4. #7# '|COMMON-LISP|::|NIL|)
    (|CLOS|::|MAKE-INSTANCE-<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>|
     |CLOS|::|<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>| :|NAME|
     '|COMMON-LISP-USER|::|STM| :|INITARGS| '#14=(:|STM|) :|TYPE|
     '|COMMON-LISP|::|T| :|ALLOCATION| ':|INSTANCE| #3#
     (|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| '|COMMON-LISP|::|NIL|
      #15=(|SYSTEM|::|MAKE-CONSTANT-INITFUNCTION| |COMMON-LISP|::|NIL|))
     #5# '(|COMMON-LISP|::|NIL|) #6# '5. #7# '|COMMON-LISP|::|NIL|))
   (|COMMON-LISP|::|LIST|
    (|CLOS|::|MAKE-INSTANCE-<STRUCTURE-DIRECT-SLOT-DEFINITION>|
     |CLOS|::|<STRUCTURE-DIRECT-SLOT-DEFINITION>| :|NAME|
     '|COMMON-LISP-USER|::|CLOCK| :|INITARGS| '#2# :|TYPE| '|COMMON-LISP|::|T|
     :|ALLOCATION| ':|INSTANCE| #16='|CLOS|::|INHERITABLE-INITER|
     (|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| '|COMMON-LISP|::|NIL|
      #4#)
     #17='|CLOS|::|INHERITABLE-DOC| '(|COMMON-LISP|::|NIL|) :|READERS|
     '(|COMMON-LISP-USER|::|CHREST-CLOCK|) :|WRITERS|
     '((|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-CLOCK|)))
    (|CLOS|::|MAKE-INSTANCE-<STRUCTURE-DIRECT-SLOT-DEFINITION>|
     |CLOS|::|<STRUCTURE-DIRECT-SLOT-DEFINITION>| :|NAME|
     '|COMMON-LISP-USER|::|DISCRIMINATION-TIME| :|INITARGS| '#8# :|TYPE|
     '|COMMON-LISP|::|T| :|ALLOCATION| ':|INSTANCE| #16#
     (|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| '|COMMON-LISP|::|NIL|
      #9#)
     #17# '(|COMMON-LISP|::|NIL|) :|READERS|
     '(|COMMON-LISP-USER|::|CHREST-DISCRIMINATION-TIME|) :|WRITERS|
     '((|COMMON-LISP|::|SETF|
        |COMMON-LISP-USER|::|CHREST-DISCRIMINATION-TIME|)))
    (|CLOS|::|MAKE-INSTANCE-<STRUCTURE-DIRECT-SLOT-DEFINITION>|
     |CLOS|::|<STRUCTURE-DIRECT-SLOT-DEFINITION>| :|NAME|
     '|COMMON-LISP-USER|::|FAMILIARISATION-TIME| :|INITARGS| '#10# :|TYPE|
     '|COMMON-LISP|::|T| :|ALLOCATION| ':|INSTANCE| #16#
     (|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| '|COMMON-LISP|::|NIL|
      #11#)
     #17# '(|COMMON-LISP|::|NIL|) :|READERS|
     '(|COMMON-LISP-USER|::|CHREST-FAMILIARISATION-TIME|) :|WRITERS|
     '((|COMMON-LISP|::|SETF|
        |COMMON-LISP-USER|::|CHREST-FAMILIARISATION-TIME|)))
    (|CLOS|::|MAKE-INSTANCE-<STRUCTURE-DIRECT-SLOT-DEFINITION>|
     |CLOS|::|<STRUCTURE-DIRECT-SLOT-DEFINITION>| :|NAME|
     '|COMMON-LISP-USER|::|LTM| :|INITARGS| '#12# :|TYPE| '|COMMON-LISP|::|T|
     :|ALLOCATION| ':|INSTANCE| #16#
     (|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| '|COMMON-LISP|::|NIL|
      #13#)
     #17# '(|COMMON-LISP|::|NIL|) :|READERS|
     '(|COMMON-LISP-USER|::|CHREST-LTM|) :|WRITERS|
     '((|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-LTM|)))
    (|CLOS|::|MAKE-INSTANCE-<STRUCTURE-DIRECT-SLOT-DEFINITION>|
     |CLOS|::|<STRUCTURE-DIRECT-SLOT-DEFINITION>| :|NAME|
     '|COMMON-LISP-USER|::|STM| :|INITARGS| '#14# :|TYPE| '|COMMON-LISP|::|T|
     :|ALLOCATION| ':|INSTANCE| #16#
     (|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| '|COMMON-LISP|::|NIL|
      #15#)
     #17# '(|COMMON-LISP|::|NIL|) :|READERS|
     '(|COMMON-LISP-USER|::|CHREST-STM|) :|WRITERS|
     '((|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-STM|)))))
  (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|MAKE-CHREST|
   (|COMMON-LISP|::|&KEY| (#18=#:|CLOCK| |COMMON-LISP|::|NIL|)
    (#19=#:|DISCRIMINATION-TIME| |COMMON-LISP|::|NIL|)
    (#20=#:|FAMILIARISATION-TIME| |COMMON-LISP|::|NIL|)
    (#21=#:|LTM| |COMMON-LISP|::|NIL|) (#22=#:|STM| |COMMON-LISP|::|NIL|))
   (|COMMON-LISP|::|LET|
    ((|SYSTEM|::|OBJECT| (|SYSTEM|::|%MAKE-STRUCTURE| #1# 6.)))
    (|COMMON-LISP|::|SETF|
     (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|CHREST|
      |SYSTEM|::|OBJECT| 1.)
     (|COMMON-LISP|::|THE| |COMMON-LISP|::|T| #18#))
    (|COMMON-LISP|::|SETF|
     (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|CHREST|
      |SYSTEM|::|OBJECT| 2.)
     (|COMMON-LISP|::|THE| |COMMON-LISP|::|T| #19#))
    (|COMMON-LISP|::|SETF|
     (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|CHREST|
      |SYSTEM|::|OBJECT| 3.)
     (|COMMON-LISP|::|THE| |COMMON-LISP|::|T| #20#))
    (|COMMON-LISP|::|SETF|
     (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|CHREST|
      |SYSTEM|::|OBJECT| 4.)
     (|COMMON-LISP|::|THE| |COMMON-LISP|::|T| #21#))
    (|COMMON-LISP|::|SETF|
     (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|CHREST|
      |SYSTEM|::|OBJECT| 5.)
     (|COMMON-LISP|::|THE| |COMMON-LISP|::|T| #22#))
    |SYSTEM|::|OBJECT|)))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|CHREST-P|))
 (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|CHREST-P| (|SYSTEM|::|OBJECT|)
  (|SYSTEM|::|%STRUCTURE-TYPE-P| '|COMMON-LISP-USER|::|CHREST|
   |SYSTEM|::|OBJECT|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|COPY-CHREST|))
 (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|COPY-CHREST|
  (|COMMON-LISP|::|STRUCTURE|)
  (|COMMON-LISP|::|COPY-STRUCTURE| |COMMON-LISP|::|STRUCTURE|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|CHREST-CLOCK|
    (|COMMON-LISP-USER|::|CHREST|) |COMMON-LISP|::|T|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|CHREST-CLOCK|))
 (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|CHREST-CLOCK|
  #23=(|SYSTEM|::|OBJECT|)
  (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
   (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|CHREST| |SYSTEM|::|OBJECT|
    1.)))
 (|SYSTEM|::|%PUT| '|COMMON-LISP-USER|::|CHREST-CLOCK|
  #24='|SYSTEM|::|DEFSTRUCT-READER| '|COMMON-LISP-USER|::|CHREST|)
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|CHREST-DISCRIMINATION-TIME|
    (|COMMON-LISP-USER|::|CHREST|) |COMMON-LISP|::|T|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|CHREST-DISCRIMINATION-TIME|))
 (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|CHREST-DISCRIMINATION-TIME| #23#
  (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
   (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|CHREST| |SYSTEM|::|OBJECT|
    2.)))
 (|SYSTEM|::|%PUT| '|COMMON-LISP-USER|::|CHREST-DISCRIMINATION-TIME| #24#
  '|COMMON-LISP-USER|::|CHREST|)
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|CHREST-FAMILIARISATION-TIME|
    (|COMMON-LISP-USER|::|CHREST|) |COMMON-LISP|::|T|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|CHREST-FAMILIARISATION-TIME|))
 (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|CHREST-FAMILIARISATION-TIME| #23#
  (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
   (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|CHREST| |SYSTEM|::|OBJECT|
    3.)))
 (|SYSTEM|::|%PUT| '|COMMON-LISP-USER|::|CHREST-FAMILIARISATION-TIME| #24#
  '|COMMON-LISP-USER|::|CHREST|)
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|CHREST-LTM|
    (|COMMON-LISP-USER|::|CHREST|) |COMMON-LISP|::|T|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|CHREST-LTM|))
 (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|CHREST-LTM| #23#
  (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
   (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|CHREST| |SYSTEM|::|OBJECT|
    4.)))
 (|SYSTEM|::|%PUT| '|COMMON-LISP-USER|::|CHREST-LTM| #24#
  '|COMMON-LISP-USER|::|CHREST|)
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|CHREST-STM|
    (|COMMON-LISP-USER|::|CHREST|) |COMMON-LISP|::|T|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|CHREST-STM|))
 (|COMMON-LISP|::|DEFUN| |COMMON-LISP-USER|::|CHREST-STM| #23#
  (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
   (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|CHREST| |SYSTEM|::|OBJECT|
    5.)))
 (|SYSTEM|::|%PUT| '|COMMON-LISP-USER|::|CHREST-STM| #24#
  '|COMMON-LISP-USER|::|CHREST|)
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|FUNCTION|
    (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-CLOCK|)
    (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|CHREST|) |COMMON-LISP|::|T|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE|
    (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-CLOCK|)))
 (|COMMON-LISP|::|DEFUN|
  (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-CLOCK|)
  #25=(|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
  (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|CHREST|
   |SYSTEM|::|OBJECT| 1. |SYSTEM|::|VALUE|))
 (|SYSTEM|::|%PUT| '|COMMON-LISP-USER|::|CHREST-CLOCK|
  #26='|SYSTEM|::|DEFSTRUCT-WRITER| '|COMMON-LISP-USER|::|CHREST|)
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|FUNCTION|
    (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-DISCRIMINATION-TIME|)
    (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|CHREST|) |COMMON-LISP|::|T|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE|
    (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-DISCRIMINATION-TIME|)))
 (|COMMON-LISP|::|DEFUN|
  (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-DISCRIMINATION-TIME|) #25#
  (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|CHREST|
   |SYSTEM|::|OBJECT| 2. |SYSTEM|::|VALUE|))
 (|SYSTEM|::|%PUT| '|COMMON-LISP-USER|::|CHREST-DISCRIMINATION-TIME| #26#
  '|COMMON-LISP-USER|::|CHREST|)
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|FUNCTION|
    (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-FAMILIARISATION-TIME|)
    (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|CHREST|) |COMMON-LISP|::|T|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE|
    (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-FAMILIARISATION-TIME|)))
 (|COMMON-LISP|::|DEFUN|
  (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-FAMILIARISATION-TIME|)
  #25#
  (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|CHREST|
   |SYSTEM|::|OBJECT| 3. |SYSTEM|::|VALUE|))
 (|SYSTEM|::|%PUT| '|COMMON-LISP-USER|::|CHREST-FAMILIARISATION-TIME| #26#
  '|COMMON-LISP-USER|::|CHREST|)
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|FUNCTION|
    (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-LTM|)
    (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|CHREST|) |COMMON-LISP|::|T|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE|
    (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-LTM|)))
 (|COMMON-LISP|::|DEFUN|
  (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-LTM|) #25#
  (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|CHREST|
   |SYSTEM|::|OBJECT| 4. |SYSTEM|::|VALUE|))
 (|SYSTEM|::|%PUT| '|COMMON-LISP-USER|::|CHREST-LTM| #26#
  '|COMMON-LISP-USER|::|CHREST|)
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|FUNCTION|
    (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-STM|)
    (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|CHREST|) |COMMON-LISP|::|T|))
 (|COMMON-LISP|::|PROCLAIM|
  '(|COMMON-LISP|::|INLINE|
    (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-STM|)))
 (|COMMON-LISP|::|DEFUN|
  (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-STM|) #25#
  (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|CHREST|
   |SYSTEM|::|OBJECT| 5. |SYSTEM|::|VALUE|))
 (|SYSTEM|::|%PUT| '|COMMON-LISP-USER|::|CHREST-STM| #26#
  '|COMMON-LISP-USER|::|CHREST|)
 (|SYSTEM|::|%SET-DOCUMENTATION| '|COMMON-LISP-USER|::|CHREST|
  '|COMMON-LISP|::|TYPE| |COMMON-LISP|::|NIL|)
 (|CLOS|::|DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD| '|COMMON-LISP-USER|::|CHREST|)
 '|COMMON-LISP-USER|::|CHREST|)
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|MAKE-CHREST|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '(|COMMON-LISP|::|&KEY| (#:|CLOCK| |COMMON-LISP|::|NIL|)
    (#:|DISCRIMINATION-TIME| |COMMON-LISP|::|NIL|)
    (#:|FAMILIARISATION-TIME| |COMMON-LISP|::|NIL|)
    (#:|LTM| |COMMON-LISP|::|NIL|) (#:|STM| |COMMON-LISP|::|NIL|))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|CHREST-P|))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|CHREST-P|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '#1=(|SYSTEM|::|OBJECT|))
 '(#1#
   (|COMMON-LISP|::|DECLARE|
    (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|CHREST-P|))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|CHREST-P|
    (|SYSTEM|::|%STRUCTURE-TYPE-P| '|COMMON-LISP-USER|::|CHREST|
     |SYSTEM|::|OBJECT|))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|COPY-CHREST|))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|COPY-CHREST|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '#1=(|COMMON-LISP|::|STRUCTURE|))
 '(#1#
   (|COMMON-LISP|::|DECLARE|
    (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|COPY-CHREST|))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|COPY-CHREST|
    (|COMMON-LISP|::|COPY-STRUCTURE| |COMMON-LISP|::|STRUCTURE|))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|CHREST-CLOCK|
   (|COMMON-LISP-USER|::|CHREST|) |COMMON-LISP|::|T|))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|CHREST-CLOCK|))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|CHREST-CLOCK|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '#1=(|SYSTEM|::|OBJECT|))
 '(#1#
   (|COMMON-LISP|::|DECLARE|
    (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|CHREST-CLOCK|))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|CHREST-CLOCK|
    (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
     (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|CHREST|
      |SYSTEM|::|OBJECT| 1.)))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|CHREST-DISCRIMINATION-TIME|
   (|COMMON-LISP-USER|::|CHREST|) |COMMON-LISP|::|T|))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|CHREST-DISCRIMINATION-TIME|))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|CHREST-DISCRIMINATION-TIME|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '#1=(|SYSTEM|::|OBJECT|))
 '(#1#
   (|COMMON-LISP|::|DECLARE|
    (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|CHREST-DISCRIMINATION-TIME|))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|CHREST-DISCRIMINATION-TIME|
    (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
     (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|CHREST|
      |SYSTEM|::|OBJECT| 2.)))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|CHREST-FAMILIARISATION-TIME|
   (|COMMON-LISP-USER|::|CHREST|) |COMMON-LISP|::|T|))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|CHREST-FAMILIARISATION-TIME|))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|CHREST-FAMILIARISATION-TIME|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '#1=(|SYSTEM|::|OBJECT|))
 '(#1#
   (|COMMON-LISP|::|DECLARE|
    (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|CHREST-FAMILIARISATION-TIME|))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|CHREST-FAMILIARISATION-TIME|
    (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
     (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|CHREST|
      |SYSTEM|::|OBJECT| 3.)))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|CHREST-LTM|
   (|COMMON-LISP-USER|::|CHREST|) |COMMON-LISP|::|T|))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|CHREST-LTM|))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|CHREST-LTM|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '#1=(|SYSTEM|::|OBJECT|))
 '(#1#
   (|COMMON-LISP|::|DECLARE|
    (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|CHREST-LTM|))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|CHREST-LTM|
    (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
     (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|CHREST|
      |SYSTEM|::|OBJECT| 4.)))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|FUNCTION| |COMMON-LISP-USER|::|CHREST-STM|
   (|COMMON-LISP-USER|::|CHREST|) |COMMON-LISP|::|T|))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE| |COMMON-LISP-USER|::|CHREST-STM|))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|CHREST-STM|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '#1=(|SYSTEM|::|OBJECT|))
 '(#1#
   (|COMMON-LISP|::|DECLARE|
    (|SYSTEM|::|IN-DEFUN| |COMMON-LISP-USER|::|CHREST-STM|))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|CHREST-STM|
    (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
     (|SYSTEM|::|%STRUCTURE-REF| '|COMMON-LISP-USER|::|CHREST|
      |SYSTEM|::|OBJECT| 5.)))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|FUNCTION|
   (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-CLOCK|)
   (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|CHREST|) |COMMON-LISP|::|T|))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE|
   (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-CLOCK|)))
(|SYSTEM|::|C-DEFUN|
 '#1=(|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-CLOCK|)
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '#2=(|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|))
 '(#2# (|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| #1#))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|CHREST-CLOCK|
    (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|CHREST|
     |SYSTEM|::|OBJECT| 1. |SYSTEM|::|VALUE|))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|FUNCTION|
   (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-DISCRIMINATION-TIME|)
   (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|CHREST|) |COMMON-LISP|::|T|))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE|
   (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-DISCRIMINATION-TIME|)))
(|SYSTEM|::|C-DEFUN|
 '#1=(|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-DISCRIMINATION-TIME|)
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '#2=(|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|))
 '(#2# (|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| #1#))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|CHREST-DISCRIMINATION-TIME|
    (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|CHREST|
     |SYSTEM|::|OBJECT| 2. |SYSTEM|::|VALUE|))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|FUNCTION|
   (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-FAMILIARISATION-TIME|)
   (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|CHREST|) |COMMON-LISP|::|T|))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE|
   (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-FAMILIARISATION-TIME|)))
(|SYSTEM|::|C-DEFUN|
 '#1=(|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-FAMILIARISATION-TIME|)
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '#2=(|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|))
 '(#2# (|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| #1#))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|CHREST-FAMILIARISATION-TIME|
    (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|CHREST|
     |SYSTEM|::|OBJECT| 3. |SYSTEM|::|VALUE|))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|FUNCTION|
   (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-LTM|)
   (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|CHREST|) |COMMON-LISP|::|T|))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE|
   (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-LTM|)))
(|SYSTEM|::|C-DEFUN|
 '#1=(|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-LTM|)
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '#2=(|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|))
 '(#2# (|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| #1#))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|CHREST-LTM|
    (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|CHREST|
     |SYSTEM|::|OBJECT| 4. |SYSTEM|::|VALUE|))))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|FUNCTION|
   (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-STM|)
   (|COMMON-LISP|::|T| |COMMON-LISP-USER|::|CHREST|) |COMMON-LISP|::|T|))
(|SYSTEM|::|C-PROCLAIM|
 '(|COMMON-LISP|::|INLINE|
   (|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-STM|)))
(|SYSTEM|::|C-DEFUN|
 '#1=(|COMMON-LISP|::|SETF| |COMMON-LISP-USER|::|CHREST-STM|)
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '#2=(|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|))
 '(#2# (|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| #1#))
   (|COMMON-LISP|::|BLOCK| |COMMON-LISP-USER|::|CHREST-STM|
    (|SYSTEM|::|%STRUCTURE-STORE| '|COMMON-LISP-USER|::|CHREST|
     |SYSTEM|::|OBJECT| 5. |SYSTEM|::|VALUE|))))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|CREATE-CHREST|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE| '|COMMON-LISP|::|NIL|))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|RECOGNISE-PATTERN|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '(|COMMON-LISP-USER|::|MODEL| |COMMON-LISP-USER|::|PATTERN|
    |COMMON-LISP|::|&OPTIONAL|
    (|COMMON-LISP-USER|::|CURRENT-NODE|
     (|COMMON-LISP-USER|::|CHREST-LTM| |COMMON-LISP-USER|::|MODEL|))
    (|COMMON-LISP-USER|::|REMAINING-CHILDREN|
     (|COMMON-LISP-USER|::|NODE-CHILDREN|
      |COMMON-LISP-USER|::|CURRENT-NODE|)))))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|RECOGNISE-AND-LEARN-PATTERN|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '(|COMMON-LISP-USER|::|MODEL| |COMMON-LISP-USER|::|PATTERN|
    |COMMON-LISP|::|&OPTIONAL|
    (|COMMON-LISP-USER|::|INPUT-TIME|
     (|COMMON-LISP-USER|::|CHREST-CLOCK| |COMMON-LISP-USER|::|MODEL|)))))
(|SYSTEM|::|C-DEFUN| '|COMMON-LISP-USER|::|RECALL-PATTERN|
 (|SYSTEM|::|LAMBDA-LIST-TO-SIGNATURE|
  '(|COMMON-LISP-USER|::|MODEL| |COMMON-LISP-USER|::|PATTERN|)))
